home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / FGL402D.ZIP / EXBAS.ARJ / TEMP / 09-03.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-01-31  |  772 b   |  34 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DIM PCXpal AS STRING*768
  6. DIM Header AS STRING*128
  7.  
  8. Status = FGpcxhead("CORAL.PCX"+CHR$(0),Header)
  9. IF Status = -1 THEN
  10.    PRINT "Can't open CORAL.PCX."
  11.    STOP
  12. ELSEIF Status = -2 THEN
  13.    PRINT "CORAL.PCX is not a PCX file."
  14.    STOP
  15. END IF
  16.  
  17. Mode = FGpcxmode(Header)
  18. PRINT USING "Optimal display mode is ##."; Mode
  19.  
  20. FGpcxrange Header, MinX, MaxX, MinY, MaxY
  21. PRINT USING "Image size is ### by ### pixels."; MaxX-MinX+1, MaxY-MinY+1
  22.  
  23. Status = FGpcxpal("CORAL.PCX"+CHR$(0),PCXpal)
  24. PRINT "First 16 palette values are:"
  25. J = 1
  26. FOR I = 0 TO 15
  27.    R = ASC(MID$(PCXpal,J))
  28.    G = ASC(MID$(PCXpal,J+1))
  29.    B = ASC(MID$(PCXpal,J+2))
  30.    PRINT USING "  color ##: R=## G=## B=##"; I, R, G, B
  31.    J = J + 3
  32. NEXT
  33. END
  34.